unit TCustomer;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TCustomerVO = class(TDataTransferObject)
  private
    FCustId: string;
    FCustName: string;
    FAreaCode: string;
    FPhone:String;
    FMobile1:String;
    FAddr:String;
    FPostCode:String;
    FLoyalty:String;
    FOperId:String;
    FCreateDate:String;
    FCustType:String;
    FAddrCode:String;
    FInfo1:String;
    FInfo2:String;
    FLinkMan:String;
    FMobile2:String;
  published
    property PK_Cust_Id: string index 0 read FCustId write FCustId;
    property Cust_Name: string index 1 read FCustName write FCustName;
    property area_code: String index 2 read FAreaCode write FAreaCode;
    property phone: String index 3 read FPhone write FPhone;
    property mobile1: string index 4 read FMobile1 write FMobile1;
    property addr: string index 5 read FAddr write FAddr;
    property postCode: string index 6 read FPostCode write FPostCode;
    property loyalty: string index 7 read FLoyalty write FLoyalty;
    property oper_id: string index 8 read FOperId write FOperId;
    property create_date: string index 9 read FCreateDate write FCreateDate;
    property cust_type: string index 10 read FCustType write FCustType;
    property addr_code: string index 11 read FAddrCode write FAddrCode;
    property info1: string index 12 read FInfo1 write FInfo1;
    property info2: string index 13 read FInfo2 write FInfo2;
    property link_man: string index 14 read FLinkMan write FLinkMan;
    property mobile2: string index 15 read FMobile2 write FMobile2;
  public
    constructor Create;
    procedure Reset();
  end;  


implementation

constructor TCustomerVO.Create;
begin
  inherited Create;
  tbName := 'inf_cust_all';
  SetLength(GridInfo, 5);
end;

procedure TCustomerVO.Reset();
begin
  FCustId := '-999';
  FCustName   := '-999';
  FAreaCode:= '-999';
  FPhone  := '-999';
  FMobile1 := '-999';
  FAddr   := '-999';
  FPostCode:= '-999';
  FLoyalty := '-999';
  FOperId  := '-999';
  FCreateDate := '-999';
  FCustType := '-999';
  FAddrCode := '-999';
  FInfo1 := '-999';
  FInfo2 := '-999';
  FLinkMan := '-999';
  FMobile2 := '-999';
end;

end.
